00100	<  FMINS  ***** TESTING MOVIN MODULATING WAVE *****
00200	SRATE←25000;MAG←512/SRATE;
00300	COMPILE;  INSTRUMENT FM1;  
00350	INTRP(P10,P11,P12);< P10,11 ARE FOR MOVING MOD. WAVE
00400	OSCIL [10](P4,10*MAG/P2,P5);  INTRP(P6*U1*MAG,P7*U1*MAG,P8);  
00500	OSCIL(U3,MAG*U1,P9);  NOSCIL(U2,MAG*P3+U4,P9);  
00600	OUTA←OUTA+U5;  END;  
01200	  FINISH;  
01300	ARRAY F2,F3,F4(512);
01400	SEG(F1);0 0  1 12  1 88  0 100;
01500	SYNTH(F2);1 1 999;
01600	SEG(F3);0 0  1 100;  <SLOPE UP
01700	SEG(F4);0 0  1 50  0 100; < UP AND DOWN
01800	
01850	P10←0;  P11←100;  P12←F3;
01900	PLAY;FM1 0 .4 A 1000 F1  2  2  F3  F2 ;FINISH;